﻿Public Structure StrDepartamento
    Private m_codigo As String
    Private m_nombre As String
    Private m_descripcion As String
    Private m_director As String

    Public Sub New(ByVal p_codigo As String, ByVal p_nombre As String, ByVal p_descripcion As String, ByVal p_director As String)

        codigo = p_codigo
        nombre = p_nombre
        descripcion = p_descripcion
        director = p_director

    End Sub

    Public Property codigo() As String
        Get
            Return m_codigo
        End Get
        Set(ByVal p_codigo As String)
            m_codigo = p_codigo
        End Set
    End Property

    Public Property nombre() As String
        Get
            Return m_nombre
        End Get
        Set(ByVal p_nombre As String)
            m_nombre = p_nombre
        End Set
    End Property

    Public Property descripcion() As String
        Get
            Return m_descripcion
        End Get
        Set(ByVal p_descripcion As String)
            m_descripcion = p_descripcion
        End Set
    End Property

    Public Property director() As String
        Get
            Return m_director
        End Get
        Set(ByVal p_director As String)
            m_director = p_director
        End Set
    End Property
End Structure
